home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / ddmoduls.lha / dd_Modules / dd_gui / dd_screentest.e < prev    next >
Text File  |  1995-10-29  |  288b  |  14 lines
  1. MODULE 'dd_gui/dd_screen'
  2. MODULE 'gadtools'
  3.  
  4. PROC main()
  5.   DEF screen:PTR TO dd_screen
  6.   IF gadtoolsbase:=OpenLibrary('gadtools.library',37)
  7.     NEW screen.clonepubscreen('GOLDED.1','Title')
  8.     Delay(250)
  9.     END screen
  10.     CloseLibrary(gadtoolsbase)
  11.     gadtoolsbase:=0
  12.   ENDIF
  13. ENDPROC
  14.